home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
JORF21_2.ZIP
/
BINARY.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
413b
|
18 lines
Binary:Start
New Char
Win:Add ("BINARY VALUES", 4, 4, 19, 60, Here)
For (Char = 0 Thru 255)
If (Char > 0 and (Char % 16 == 0))
Win:Pause
If Kbd:Got == "Esc_Key"
Break
Str:Put(" Character= {To:Str(Char,'000')} Symbol= ")
Char:Put(Char)
Str:PutLine(" Binary= {To:Str(Char,'0000 0000',2)}")
If Kbd:Got != "Esc_Key"
Win:Pause
Return (Ok)